SuperHack

home *** CD-ROM | disk | FTP | other *** search

/ SuperHack / SuperHack CD.bin / CODING / VBASIC / KNOBVB25.ZIP / VB.ZIP / KANNULAR.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1996-01-17 | 16.5 KB | 508 lines

VERSION 2.00 Begin Form AnnularDemo BackColor = &H00C0C0C0& BorderStyle = 1 'Fixed Single Caption = "Knob Annular Properties Demo" ClientHeight = 3330 ClientLeft = 1890 ClientTop = 2250 ClientWidth = 7890 Height = 3735 Left = 1830 LinkTopic = "Form2" MaxButton = 0 'False MDIChild = -1 'True MinButton = 0 'False ScaleHeight = 222 ScaleMode = 3 'Pixel ScaleWidth = 526 Top = 1905 Width = 8010 Begin Frame Frame4 BackColor = &H00C0C0C0& Caption = "Annular Radii" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 855 Left = 3360 TabIndex = 25 Top = 2340 Width = 4425 Begin HScrollBar HScroll1 Height = 240 Index = 2 Left = 1965 Max = 100 TabIndex = 4 Top = 195 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 3 Left = 1965 Max = 100 TabIndex = 5 Top = 435 Width = 2000 End Begin Label Label3 AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "0" Height = 195 Index = 3 Left = 4020 TabIndex = 8 Top = 465 Width = 120 End Begin Label Label3 AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "0" Height = 195 Index = 2 Left = 4020 TabIndex = 9 Top = 210 Width = 120 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "AnnularInnerRadius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 2 Left = 495 TabIndex = 10 Top = 225 Width = 1470 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " " Height = 195 Index = 2 Left = 2685 TabIndex = 11 Top = 210 Width = 90 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "AnnularOuterRadius:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 3 Left = 465 TabIndex = 12 Top = 465 Width = 1515 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " " Height = 195 Index = 3 Left = 2685 TabIndex = 13 Top = 450 Width = 90 End End Begin Frame Frame3 BackColor = &H00C0C0C0& Caption = "Annular Values" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 900 Left = 3360 TabIndex = 24 Top = 1440 Width = 4395 Begin HScrollBar HScroll1 Height = 240 Index = 0 Left = 1965 Max = 100 TabIndex = 31 Top = 255 Width = 2000 End Begin HScrollBar HScroll1 Height = 240 Index = 1 Left = 1965 Max = 100 TabIndex = 30 Top = 480 Width = 2000 End Begin Label Label3 AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "0" Height = 195 Index = 1 Left = 4020 TabIndex = 26 Top = 525 Width = 120 End Begin Label Label3 AutoSize = -1 'True BackColor = &H00C0C0C0& Caption = "0" Height = 195 Index = 0 Left = 4020 TabIndex = 27 Top = 285 Width = 120 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " " Height = 195 Index = 0 Left = 2190 TabIndex = 28 Top = 285 Width = 90 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "AnnularStartValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 0 Left = 585 TabIndex = 34 Top = 285 Width = 1380 End Begin Label Label1 AutoSize = -1 'True BackStyle = 0 'Transparent Caption = "AnnularStopValue:" FontBold = 0 'False FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 210 Index = 1 Left = 585 TabIndex = 33 Top = 510 Width = 1365 End Begin Label Label2 Alignment = 2 'Center AutoSize = -1 'True BackStyle = 0 'Transparent Caption = " " Height = 195 Index = 1 Left = 2190 TabIndex = 32 Top = 510 Width = 90 End End Begin KNOB Knob1 Angle = 0 AutoRedraw = -1 'True AVersion = 2.5 BackgroundColor = &H00C0C0C0& BevelInner = 0 ' 0 - None BevelOuter = 1 ' 1 - Raised BevelWidth = 2 BorderType = 1 ' 1 - Bevel BorderWidth = 2 Digital = 0 'False DigitalColor = &H00000000& DigitalDecimals = 0 DigitalFontID = 0 DigitalX = 0 DigitalY = 0 FontID = 0 FrameColor = &H00000000& FrameScaleX = 0 FrameScaleY = 0 FrameStyle = 0 ' 0 - None Height = 3045 KnobColor = &H00808080& KnobMultiTurn = 0 'False KnobMultiTurnValue= 0 KnobRadius = 0.6 KnobSnap = 0 'False KnobSnapIncrement= 1 KnobStyle = 0 ' 0 - Cicular KnobUserDefined = "" KnobValue = 0 Left = 60 MarkUserDefined = "" MouseControl = -1 'True OutlineAlign = 0 ' 0 - Left OutlineColor = &H00000000& OutlineTitle = "" OutlineWidth = 0 Radius = 0 TabIndex = 23 Top = 135 Value = 0 Width = 3135 XScale = 0 YScale = 0 ZLoad = KANNULAR.FRX:0000 End Begin Frame Frame2 BackColor = &H00C0C0C0& Caption = "Annular Color" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1095 Left = 5700 TabIndex = 6 Top = 75 Width = 1635 Begin Label Colors BackColor = &H00000000& Height = 225 Index = 0 Left = 240 TabIndex = 7 Top = 390 Width = 225 End Begin Label Colors BackColor = &H00808080& Height = 225 Index = 1 Left = 240 TabIndex = 14 Top = 630 Width = 225 End Begin Label Colors BackColor = &H00FFFFFF& Height = 225 Index = 2 Left = 480 TabIndex = 15 Top = 390 Width = 225 End Begin Label Colors BackColor = &H000000FF& Height = 225 Index = 3 Left = 480 TabIndex = 16 Top = 630 Width = 225 End Begin Label Colors BackColor = &H0000FF00& Height = 225 Index = 4 Left = 720 TabIndex = 17 Top = 390 Width = 225 End Begin Label Colors BackColor = &H0000FFFF& Height = 225 Index = 5 Left = 720 TabIndex = 18 Top = 630 Width = 225 End Begin Label Colors BackColor = &H00FF0000& Height = 225 Index = 6 Left = 960 TabIndex = 19 Top = 390 Width = 225 End Begin Label Colors BackColor = &H00FF00FF& Height = 225 Index = 7 Left = 960 TabIndex = 20 Top = 630 Width = 225 End Begin Label Colors BackColor = &H000080FF& Height = 225 Index = 8 Left = 1200 TabIndex = 21 Top = 390 Width = 225 End Begin Label Colors BackColor = &H00004040& Height = 225 Index = 9 Left = 1200 TabIndex = 22 Top = 630 Width = 225 End End Begin Frame Frame1 BackColor = &H00C0C0C0& Caption = "Annular ID" FontBold = -1 'True FontItalic = 0 'False FontName = "Arial" FontSize = 8.25 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 1095 Left = 3720 TabIndex = 0 Top = 75 Width = 1845 Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "3" Height = 255 Index = 3 Left = 885 TabIndex = 29 TabStop = 0 'False Top = 525 Width = 615 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "2" Height = 255 Index = 2 Left = 885 TabIndex = 3 TabStop = 0 'False Top = 315 Width = 615 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "1" Height = 255 Index = 1 Left = 240 TabIndex = 2 TabStop = 0 'False Top = 525 Width = 615 End Begin OptionButton Option1 BackColor = &H00C0C0C0& Caption = "0" Height = 255 Index = 0 Left = 240 TabIndex = 1 Top = 315 Value = -1 'True Width = 615 End End Sub Colors_Click (index As Integer) knob1.AnnularColor = colors(index).BackColor End Sub Sub Form_Load () hscroll1(0) = knob1.AnnularStartValue * 10 hscroll1(1) = knob1.AnnularStopValue * 10 hscroll1(2) = knob1.AnnularInnerRadius * 100 hscroll1(3) = knob1.AnnularOuterRadius * 100 knob1.AnnularID = 2 option1(2) = True End Sub Sub HScroll1_Change (index As Integer) Select Case index Case 0 knob1.AnnularStartValue = hscroll1(0) / 10 label3(index) = knob1.AnnularStartValue Case 1 knob1.AnnularStopValue = hscroll1(1) / 10 label3(index) = knob1.AnnularStopValue Case 2 knob1.AnnularInnerRadius = hscroll1(2) / 100 label3(index) = knob1.AnnularInnerRadius Case 3 knob1.AnnularOuterRadius = hscroll1(3) / 100 label3(index) = knob1.AnnularOuterRadius End Select End Sub Sub HScroll1_Scroll (index As Integer) Select Case index Case 0 knob1.AnnularStartValue = hscroll1(0) / 10 label3(index) = knob1.AnnularStartValue Case 1 knob1.AnnularStopValue = hscroll1(1) / 10 label3(index) = knob1.AnnularStopValue Case 2 knob1.AnnularInnerRadius = hscroll1(2) / 100 label3(index) = knob1.AnnularInnerRadius Case 3 knob1.AnnularOuterRadius = hscroll1(3) / 100 label3(index) = knob1.AnnularOuterRadius End Select End Sub Sub Option1_Click (index As Integer) knob1.AnnularID = index hscroll1(0) = knob1.AnnularStartValue * 10 hscroll1(1) = knob1.AnnularStopValue * 10 hscroll1(2) = knob1.AnnularInnerRadius * 100 hscroll1(3) = knob1.AnnularOuterRadius * 100 End Sub